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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEHENT COPYRIGHT IBH CORP 1976 
3 COPY G7868 ** MAP EC HISTORY ** 002500 25F8 198 DC A (ENT POINT TO MAP ENTFY POINT TABLE 
4 ee Pe te a Oe OREN gy hy brie pr ee ee mE Re Ee - 199 eprcueks -Ceaeeeee cee Mee Me Mahe ee Hee ae he she she he ae oe he eae he ah ee he he ae he he he ee he He eh he ae ee ee eK KH eH 
5 * a DOC eH Be Heo Be ae Re he he ae 2 fe he he eH a a a he he 2 he ee he eB Oe a a a Sh OC He He he He He eH EK a A KKK KK Ee 
6 * KK PREREQUISITES % %K * 201 ** *% 
7 * * 202 ** THE FOLLOWING TABLES ARE USED BY THE ORG SUPERVISOR (D3C00) oh 
8 * NONE * 203 ** TO LOCATE THE CORRECT RULE nee INVOKE OBTAIN THE PROPER *% 
9 * * 204 ** PARAMETERS TO PASS TO THE TU! AND T6 Bese TO THE OPFEPATOR te 
10 ROR ORIG IORI GO CK IK kok dalok fake ak toe kok kc ek 205 ** THE INDICATED MESSAGE (S) . SHER E ARE FOUR TABLES USED FOR THIS x 
11 * * 206 ** PURPOSE THEY APE: *% 
12 * ** MODIFICATIONS % KK * 207 ** ** 
13 * * 208 ** STEP AND RULE ADDRESS TABLE “x 
14 * CHANGES MADE TO MFET PROGRAM REQUIREMENTS * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND *«* 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. ** 
16 ORR RR IRR RR IO IIR III kr a ik fk tke ai ke kkk oie oe ok ok 211 ** ENTRIES ARE AS FOLLOWES ** 
17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA *x 
18 * eK REA'S INCORPORATED eK * 213 ** B THE STEP NUMBER IN DECIMAL «x 
19 * * 214 ** Cc AN EQUATE FOR THE STEP NUMBER ** 
20 * NONE * 215 ** ** 
21 * * 216 ** RULE INFORMATION TABLE * % 
22 RRR RO FI OI II I aki iio kkk gk dK a dO i kkk ok 217 ** THIS TABLE CONTAINES THE REQUIPED INFOPMATION TO EXECUTE xk 
23 * * 218 ** THE APPPROPPIATE RULE UNDER MDI. EACH RULE HAS ITS OWN ** 
24 * KK SPECIAL INSTRUCTIONS % HK * 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS *x 
25 * * 220 ** INDICATED WITH A X'O000* FOP THE RULE EQUATE. * % 
26 * NONE * 221 ** *% 
27 * * 222 ** SQUES ** 
98 II II IOI GK I RIO IO I GIO I iotak Jako i i dak koko akokoteie ak aco ak és 223 ** A) RULE EQUATE X*01008 ** 
29 * * 224 ** B) ADDRESS OF THE YES LEG ROLE *& 
30 * x E. C. HISTORY *** * 225 ** ** 
31 * *! 226 ** SFIXT * & 
32 * DATE 10JUN77 DATE OIMART78 DATE DATE * 227 ** A) RULE EQUATE X*'0101' ** 
a ‘ E.C. 578625 E.C. 755285 EaC« EeC. : ae ies B) ADDRESS OF MESSAGE TO PRINT i! 
QA HR RE RO a EO RR I RR a i 2 I I RR CBR I a eR oe oi ak ee i ai a ake ke ok ok oon eK $STOP mK 
002500 37 37868 STAPT X*2500! START ADDRESS OF ALL 'I! TYPE PROG 231 ** A) RULE EQUATE xXx'0102'* ** 
000100 38 @QUES EQU X'0100! EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE * 
000101 39 @FIXT EQU X¥*0101! EQUATED VALUE FOR MDI STATEMENT 233 ** ** 
000102 40 @STOP EQU X¥*01025 EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO ** 
000200 41 @GOTO EQU xX'0200! EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X'0200! ** 
000201 42 @CALL EQU X¥'0201! EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE * 
000300 43 @INPT EQU X'0300'! EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO ** 
000400 KY @OUXX EQU X*Ou00! EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POTNT WITHIN GO TO MAP TO USE **x 
000500 45 aTUXX EQU x*0500* EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFER? ENCE * & 
000600 46 A@NVLD EQU X'0600'! EQUATED VALUE FOR MDI STATEMENT 241 ** * & 
000000 47 EQ at X'0000! EQUATE FOR FQUA 24U2 ** SCALL ** 
000004 48 NE EQU x'o0004! EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X'0201'° ** 
000008 49 HI EQU xX¥*0008! EQUATE FOR HIGH 244 ** B) ADDRESS OF MESSAGE * & 
00000C 50 NH EQU X'O00C! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL ** 
000010 ST Lo EQU Xx'0010' EQUATE FOF LO 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE ** 
000014 52 NL EQU X'00148 EQUATE FOR NOT LOW 247 ** E) INDICATOP FOR FXTERNAL OR INTERNAL REFERENCE ** 
000010 53 LT EQU X'0010* EQUATE FOR LESS THAN 248 ** * 
00000C 54 LE EQU xX'000CcC* EQUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT * 
000008 55 GT EQU x'0008'! EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X'03008 *x 
000014 56 GE EQU X*0014! FOUATE FOF GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE (EBCDIC OR HEX) ** 
000200 57 ON EQU X¥*0200! EQUATE FOR ON 252 ** C) ADDRESS OF YES LEG ** 
| 000202 58 OF EQU X¥'0202' EQUATE FOR OFF ; 253 ** D) DESTINATION LOCATION OF INPOT DATA * 
000204 59 MX EQU X'*O0204' EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA ** 
000000 60 EBC EQU x'0000! EQUATE FOR EBCDIC DATA I RANSFER 255 ** F) LOWER LIMIT OF GOOD DATA * 
000001 61 HEX EQU X*O000Tt EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA * 
000001 62 XTRNL EQU X'0001' EQUATE FOR FXTERNAL REFERENCE 257 ** ** 
000000 63 INTRENL EQU X'0000' EQUATE FOR INTEPNAL REFERENCE 258 ** SOUXX ** 
000000 64 FARM FOU X*O00008 EQUATE INDICATING PARAMETER 259 ** A) FULE EQUATE xX'O4O00t ** 
000001 65 DA EQU x*Q0001' EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE ** 
000002 66 UA EQU X¥*0002'! EQUATE FOR UNIT ADDFESS 261 ** C) TU BRANCH TO ADDRESS ReoaEn ah a 
000000 67 DUMMY EQU X¥'O0000'5 DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) ** 
001800 69 FID EQU *-xX'ODOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES * 
000232 70 PTYPE EQU *—X'Q2CE! ADDRESS OF FROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU * 
00180C 71 STEPNUM EOQU PID+X'OQOC! ADDRESS OF DECIMAL STEP NI MBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAYETER ** 
00180E 72 OPWD1 EQU PID+X'OOOE! ADDRESS OF OPTION WORD ONE 266 ** ** 
001810 73 OPWD2 EQU PID+xX*O0108 ADDRESS OF OPTION WORD TWO 267 ** STUXX ** 
001818 74 TUSTATUS EQU PID+x'00188 ADDRESS OF TU STATUS WORD 268 ** A) KULE EQUATE X'‘'0500! * 
OO181A 75 TUWORK EQU PID4+X'OO1A! ADDRESS OF TU WORK APEA 269 ** B) ADDRESS OF YES LEG RULE ** 
OO0189A 76 TUPARM1 EQU PID+X'OO9QA!® ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS A 
00189C 77 TUPARM2 EQU PID+x*O09CEt ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS ** 
00189E 78 TUPARM3 EQU PITD+X*OO9E! ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPAFED RESULTS ** 
0018A0 79 TUPARPM4Y EQU DID+tX*OOAO!? ADDPESS OF PARM 4 POINTER 273 ** F) MASK FIFLD FOR COMPAPE ** 
0018 A2 80 TUPARMS EQU PID+X*OOA2? ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES ek 
0018 A4 81 TUPARM6 EQU PID+X'OOAG! ADDRESS OF PAPRM 6 POINTER 275 ** H) PAPAMETER TO PASS TO THE TU ** 
0018A6 82 TUPARMT EQU PID+X'OOA6* ADDPFSS OF PARM 7 POINTER 276 ** I) STOFE ADDPESS FOR FIRST 8 WORDS OF PAPAMETER ** 
0018A8 83 TUPARM8 FEQU PID+X!OOA8* ADDRESS OF PARM 8 POINTER 277 ** ** 
OO18AA 84 TUPARMS FOU PID+X'OOAA!* ADDPESS OF PARM 9 POINTER 278 ** SNVLD , : ** 
OO18AC 85 TUPARM10 EQU PYID+X'OOAC! ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X*0600! * * 
OO18AE 86 TUPARM11 EQU PID+X'OOAE!? ADDRESS OF PARM 11 POINTEF 281 ** 4k 
0018B0 87 TUPARM12 EQU PID4+xX'OORO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE ** 
0018B2 88 TUPARM13 EOU PID#X'OOB2& ADDRESS OF PAPM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * & 
OO1T8B4 89 TUFARM14 EQU PID+X'OORU!? ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * 
0018B6 90 TUPARM15 EQU PID+X'OOB6!* ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTPIES ARE AS FOLLOWES: ** 
0018B8 91 TUPARM16 EQU PID+xXtOOBB! ADDRESS OF PARM 16 POINTER 286 ** a, * 
OO18BA 92 TUMSGWTIR EQU PID+X"'OOBA® ADDRESS OF -> TO COMMON MSG WRITER 287 ** A) NAME OF ENTRY POINT * & 
OO18BE 93 TUUA EQU PID+X'OOBE* ADDRESS OF UNIT ADDPESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT PULE TABLE ** 
0018C0 94 TUDA EQU PID+xX'OOCO!® ADDRESS OF DEVICE ADDPESS IN EBC 289 ** kK 
0018C2 95 TUBUFF EQU PID+xX'00C2!? ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A x*O0000! *x 
0018C4 96 TULAST ati PID+x'OOCc4! ADDRESS OF LAST ADDRESSABLE WORD 291 ** ** 
0018C6 97 TORESULN EQU PID+xX'O0c6!? ADDRESS OF LENGTH OF TU FESULTS 292 ** MESSAGE TABLE ** 
0018C8 98 TURESUL EQU PID+x'OOC8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * x 
OO018FC 99 MAPNAME EQU PID+X'OOFC! ADDRFSS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: oe 
001948 100 TOUINPT EQU PID+X*'O1488 ADDRESS OF SINPT DATA 295 ** * 
00196E 101 FPARMARA EQOU PID+X'O16E* ADDRESS OF SINPT INPUT AREA 296 ** A) EQUATE FOR START OF MESSAGE BLOCK * 
0019B8 102 @DCADD1 EQU PID+xX*O1B8'! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE ** 
OO19BA 103 @DCADD2 EQU PID+X'O1BA® MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE * x 
0019C4 104 SUPSTAT EQU PID4+xX'O1Cc4? ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE ** 
0019D0 105 DEVADD EQU PID+x'O1DO! ADDRESS OF DEVICE ADDPESS TARLE O 300 ** E) LENGTH OF FOLLOWING LINE *& 
OO19DA 106 DEVADD1 EQU PID+X'O1DA® ADDRESS OF DEVICF ADDRESS TABL® 1 301 ** F) SECOND LINE OF MESSAGE ** 
OO19 E4 107 DEVADD2 EQU PID+X'O1E4!? ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G - **& 
OO19EE 108 DEVADD3 FQU PID4+X'OUFE* ADDRESS OF DEVICE ADDPESS TABLE 3 303 ** ** 
OO19F8 109 DEVADDS4 EQU PID+X'O1F8! ADDRESS OF DEVICE ADDPESS TABLE 4 CIV ETS SLOSS SESS SSS SL SS SSS SSS SS PS SS SSS STC S STS SSS SL SS tT ST TSS SS OSS STS SL SSS. SF 
001A02 110 DEVADDS EQU PID+xX'0202'% ADDRESS OF DEVICE ADDRESS TABLE 5 CUM LE LTS SSL SSL SE SSP SS SSS SCS TSS SESS STS SS SSS SSS SS CSS SS SS Se SSC SSCL SSS SSS STS LSS 
OO1A0C 111 DEVADD6 EQU PID+x'O020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 ee DEVADD? eee es Bree ee ADDRESS OF DEVICE ADDRESS TABIE 7 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
002682 0001 536 DC ea 654 * * 
002684 0012 537 DC A (0018) 655 * EQUATED NAMES FOP SUPPORTED SVYCIS * 
002686 C5SDSC440DEC64O0E2C 538 DC CLOO18'"END OF SCOPE LOOP !? 656 * * 
002698 539 FOO124 EQU x OM Le Tt eS SSS SSS SSL SSS SESS LS SSS SS SSS SSS SCS SSL SSS CSOSSCSOSS£S CESSES ES SSL SSS SS SS | 
002698 0001 S40 DC pac 0d) 000000 658 OUT EQU 0 OouT SVC 
002694 0012 541 DC A (0018) 000001 659 OUTIN EQU 1 OUTIN SVC 
00269C C5SDS5SCU4ODECE4OE2ZC 542 DC CLOO1T8'END OF SCOPE LOOP * 000002 660 IDLE EQU 2 IDLE SVC 
OO26AE 543 FO0131 EQU * 000003 661 ASCII EQU 3 HEX TO ASCII SVC 
OO26AE 0001 544 DC re ea Ood00004 662 CHNGE EQU 4 CHANGE LEVEL SVC 
0026B0 0012 S45 DC A (0018) 000005 663 PGMCK EQU) 5 ALLOW RETURN ON PROGRAM CHECK SVC 
0026B2 CSD5C4HODECE64OE2ZC 546 DC CLOO18'"END OF SCOPE LOOP * 000006 664 EXIT EOQU 6 EXIT svc 
0026C4 547 FO00133 EQU * 000007 665 TERM EQU 7 TERMINATE SVC 
0026c4 0001 548 DC ue coey) 000008 66€ RESET EQU 8 RESET DEVICE SVC 
0026C6 0012 549 DC A (0018) 000009 6€7 PID EOO 9 PEAD ID SVC 
0026C8 C5SD5C44ODECE4O0E2C ey Hage” PT OF SCOPE LOOP ! OOOOOA 668 START EQU 10 START CYCLE STEAL SVC 
000 669 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
O0O026DA 0000 oe a DC X*O000! PROGRAM OPTION CONTROL WORD 1 ernie 670 PREP efi 12 PREPARE DEVICE 
+ 00000D 671 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
0026DC 0000 555+OPTN2 DC X*O00008 PROGPFAM OPTION CONTROL WORD 2 OO0O000R 672 READ1 ett 14 READ WITH FUNCTION BIT 3 ON SVC “ 
556+* BIT HEX OOOOOF 673 RSTAT EQU 15 RFAD STATUS SVC 
000010 557+B48 EQU 16 0 8 PPOBLEM PROGRAM CONTROL BITS 000010 674 WRITO EOQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000011 558+B49 EQU 17 1 4 * 000011 675 WRIT1 EQOU 17 WRITE WITH FUNCTION BIT 3 OWN SVC 
000012 559+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 000012 676 CTPL EOU 18 CONTROL SVC 
000013 560+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO 000013 677 RICB EQU 19 KFLEASE INTERUPT CONTROL BLOCK SVC 
000014 5614+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER 000014 €78 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
000015 562+B53 EQU 21 5 4 * 000015 679 HIO EQU 21 HALT ALL Ae 
000016 563+B54 FOU 22 6 2 * 0000 16 680 FKEQSD EQU 22 REQUEST USE OF DCP DISK SVC 
000017 564+B55 EQU 23 7 1 * 000017 681 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
000018 565+B56 EOU 24 8 8 * 000018 682 HALT EOQU 24 HALT SVC 
000019 566+B57 EQU 25 9 4 * 000019 683 ETOH EQOU 25 ERCDIC TO HEX SVC (STPING 
OOOO1A 567+B58 EQU 26 10 2 = OOO01A 684 HTOE EQU 26 HEX TO EECDIC SVC (STRING 
00001B 568+B59 EQU 27 11 1 * 00001B 685 ATOH EQU 27 ASCII TO HEX SVC (STRING 
00001C 569+B60 EQU 28 12 8 * 00001C €86 HTOA EOU 28 HEX TO ASCII SVC (STRING 
0000 1D 570+B61 EQU 29 13 4 * 00001D 687 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
OOO01E 571+B62 EQU 30 14 2 5 OOOO1E 688 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 
OO0001F 572+B63 EQU 31 15 1 * O0001F 689 REFADI Egt 31 READ DATA SETS FOR MDI/UTIL 
OO001E 5734CH EQU 30 14 2 CHARACTER SUPPLIED 000020 €90 WRITI EOU 32 WRITE DATA SETS FOR UTIL 
OOO0O1F STU+CME EQU 31 15 1 COMPARE OPERATION 692 RRR ROR RR OO RII IRR RIOR I OIRO OR RII Ok aio te keke tke ake 
OO2Z6DE 0000 oe DC x'ooo0o! PROGRAM OPTION CONTROL WORD 3 693 * * 
+ 94 * EQUATES USED U'S AS CONSTANTS * 
578+* OQ MYSTERY INTERRUPT NI 8 CS STATUS IN PROGRESS CS Pad x Q Bt ie z . 
579+* 1 ERROR INTEPRUPT ER 9 CS AVAILABLE CSA 696 3 RO ok a IO IC ROR 3k OR RG OR iO oR koko tok dak dc gok ok ao tok 
580+* 2 EXPECTED INTERPUPT XI 10 CS STATUS INTERRUPT ERR CE OOOOUF 697 PLUS EQU Ct4t PLUS CHAR 
5814+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 000060 698 MINUS EOU ct-! MINUS CHAR 
582+* 000000 700 ZERO EQU 0 
583+* 4 EXPECTED EPR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 000001 701 ONE EQU 1 
58u4*x 5 HARD ERROR FOUND HE 13 OIO CC ERROR IOCC 000002 702 TWO EQU 2 
585+* 6 WRONG INTR LEVEL $LE 14 NO INTERRUPT NOITN 000003 703 THREE EQU 3 
586+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC Oo000g04 704 FOUR EOU u 
58a74+* BIT HEX 000005 705 FIVE EOU 5 
000020 5884mMI1 EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000006 706 STIX EQU 6 
000021 589+ER EQU 33 1 uy ERROR RECEIVED ON INTERRUPT 000007 707 SEVEN EQU 7 
000022 590+4XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000008 708 EIGHT EOU 8 
| 000023 5914+IN EQU 35 3 1 INTEPRUPT RECEIVED CONTROL BIT 000009 709 NINE EQU 9 
000024 59O24+KXE EQU 36 4 8 EXPECTED ERROR RESPONSE OOOOOA 710 TEN EOU 10 
000025 5O3+HE EQU 37 5 4 HARD ERROR, 8 RETRIES 00000B 711 ELEVN EOu 11 11 
0000 26 5944+$LE EOU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 00000C 712 TWELV EOU 12 12 
000027 59O54NI EOU 39 7 1 NO INTERRUPT EXPECTED E 00000D 713 THRIN EOQU 13 13 
000028 596+4+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS OOOOOF 714 FIVIN EOU 15 15 
000029 5974+CSA EQU 4 9 4 CYCLE STFAL AVAILABLE 000010 715 SIXTN EQU 16 16 
OOOO02A 598+CE EQU 42 10 2 CYCLE STEAL STATUS INERFPRUPT ERROR 000020 716 THRY2 EOQU 32 32 
00002B 599+ISBON EQU 43 11 1 ISB BITS ON 1-7 000040 717 SIXTY EOQU 64 64 
0000 2c 6004NG EQU uy 12 8 TEST UNIT RESULTS NO GOOD 000080 718 ONE28 EQU 128 128 
00002D 601+IOCC EOU 45s 13 4 OIO CC EPROR 000100 719 TWO56 EOU 256 256 
OOO02ZE 602+NOIN EQU 46 14 2 NO INTEKRUPT 0004800 720 ONEK EOU 1024 1024 
0000 2F ooh ete EQU 7 15 1 INTERRUPT CC ERROR 000800 721 TWOK EDU 2048 2048 
+ 000C00 722 THREK EQU 3072 307 
605+4+* COMMON BUFFER FOR PRINTING DATA 001000 723 FOURK EQU 4096 Rpoe 
606+* FFFFFF 725 M1 EQU 1 =—4 
OO26E0 0000 6084+$TUID DC A (*-* TEST UNIT IDENTIFICATION FFFFFE 726 M2 EQU -? -2? 
0026E2 0000 609+SIOIN DC A (*- * I/O AND INTR CONDITION CO) ES FF 727 M3 EQU -3 -3 
OO026E4 0000 6104+$1ISB DC A (*-* R INTR STATUS BYTE & DEV ADPFS FFFFFC 728 M4 EQU - - 
0026E6 0000 611#+LSTIO DC A (*-* ADRS OF LAST TI Oo + 4 BYTES T3Q RRR ARH RK RK RR II IOI FORO RIO FOR ROR ROI RI ROR Ra ROR aia tok fo ea ak ak 
0026E8 0000 6124+DEV1 DC A (*-* DEVICE DEPENDENT DATA 731 * ; * 
a328ee 088 glispeys be RASS ; 1333 BEELRRTRGNOPSGME"SHRETO SEACH BEE ROHHECHOES or Seioemes, 
O0O026EE 0000 615+DEV4 DC A (*-* * 734 * 2 ae Be 2 cae i * 
0026E8 616+SCTID EQU DEV1 PEAD ID BUFFER FOR IBIS & TERN 735 ORO RR OO Ok io gaiok tok doi giaik gekigiaiagakaioiakioieg ikke ik 
0026F0 617+DCEUF EQU * DCB BUFFER FOR LAST DCB USED 000000 736 BSO EQU 0 
0026F0O0 0000 618+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WOFD 000001 737 BS1 EQU 1 
0026 F2 0000 619+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000002 738 BS2 EQU 2 
0OO026F4 0000 6204+DCB3 DC A (*-* LAST DCR TABLE, DEV DEP WORD 000003 739 BS3 EOU 3 
0026F6 0000 621+DCB4Y DC A (*-* LAST DCB TABLE, DEV DEP WORD 000004 740 BS4 EOU u 
0026F8 0000 622+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000005 741 BSS EQU 5 
OO026FA 0000 623+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000006 742 BS6 EOU 6 
0026FC 0000 6244+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000007 743 BS7 EQU 7 
OO26FE 0000 pee DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000008 74u BS8 EOU 8° 
+ 
002700 627+CSBUF EQU- * CYCLE STEAL DATA BIFFER SOOONL ane eee EOU 46 
002700 0000 628+CSTL1 DC A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 00000B 747 BS11 EOU 11 
002702 0000 6294#CSTL2 DC A (*-* CYCLE STEAL WD 2, p VICE DEP o000od0c 748 BS12 EOU 12 
002704 0000 6304CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND O0000D 749 BS13 EOU 13 
0027056 0000 6314CSTL4 DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND OOO000R 750 BS14 EOU 14 
002708 0000 6324+CSTL5 DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND OO0O000F 751 BS15 EOU 15 
00270A 0000 633+CSTL6 DC A (*¥- * CYCLE STEAL WD 6, DEVICE DEPEND 753 COPY 17803 
00270C 0000 6344+CSTL7T DC A (*¥-* CYCLE STEAL WD 7, DEVICE DEPEND 754 MACRO 
00270E 0000 eee pc A (*-* CYCLE STEAL WD 8, DEVICE DEPEND 755 XEQITL SE 
+ 
002710 0000 637+$SUBN DC yb LAST SUBROUTINE ADDRESS USED ae0 Pees Pere cert ye CRE Rwe Che, Geet 
002712 00000000 6384+$SDATA DC 2A (*-* OPTIONAL DATA a 758 &F SETC ‘spt 
002716 0021 6394+$INTL DC X¥'0021' INTERRUPT LEVEL REQUESTED 759 3 iO IO OR OO RIOR IR RIOR iO Ra Rotor kak goto tok 15 MAR 7 ee 
002718 0000 6404+TURTN DC Le head TEST UNIT RETURN ADRS TO MDI 760 * 
00271A O0OB2 6414+$DVID DC X'OOB2* DEVICE ID 761 * SUB-ROUTINE 
00271C 19D0 642+SVCAL DC Alea ADRS OF DEVICE ADDRESS 762 * 
00271E 0000 area DC Aa) IBIS CYLINDER ADDRESS 763 * EXECUTE INPUT AND OUTPUT COMMANDS 
* 
645+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM ae * PURPOSE 
646+* FUNCTION. THE RESULTS THAT WERE SET WP IN THE RESULTS AREA ARE 766 * 
orn STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 767 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
+ * ° 
002720 4O20 26E0O 3C02 6494+T3C02 MVWI X'3C02',STUID SET UP TEST UNIT ID = a8 * ype ee uaa teae-cnor Vey LOPEOWING: FUNCTIONS: 
002726 5700 ee es Lan RETURN TO MDI SUPVR 770 : 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
653 aREEG ae ed oo CCL ORR RA NERS RERARa Raa a a * 2. ee upeae DoD oLoce USED UNLESS If IS A START CYCLE STATUS 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
773 * ISSUED BY THIS SUBROUTINE. 887 MVB R3,S10IN * PUT IN LOG OUT AREA 
que : 3. CLEAR QUT THE CECLE STEAL STATUS STORAGE UNLESS THE ae i R6) * RETURN TO USER ERROP HANDLER 
776 * 4. RESETS THRE TUTEERUDT THURCHTGR AAG CRECKS Don nay INTERRUPT 890 MEK HK KH KK KE KK KKK KKK KKK KKK KEKE KEKE E EKA EKEKE YO MAR 77 OH 
777 * SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERPUPT IS FOUND, 891 * IL 
779 * 5, MOVES THE ADDRESS GF THE 170 CONTROL BEOCK T Cee eee 11 
: TROL BLOCK SET TH 
780 * EXPECTED INTEREUPT CONTPOL BIT AND ISSUE THE "SVC START". oan ERROR INTERRUPT RUNS ON TNTERRUP EC VENEL TC SaNtre * 
781 * 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 895 * IL 
783 * 7. EXCEPT THE INTERRUPT AND GATHER TNPOR i al IL 
P GATH NFO ION 
785 * GEG AW ERROR (OL OKAY RED BETTE ORE SHE THTERBUP? TEEL 898 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVP DETECTS AN ERPOP IL 
785 * 8. CHECK IF THERE WAS A WRONG INTERPUPT LEVEL. 899 * OR THE INTFRRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
786 * 9. CHECK IF \AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 900 * EXPECTED CODE. IL 
787 * 10. CHECK IP THERE WAS AN ERROR CONDITION, IF NOT RETURN. 901 * TL 
13 td: SHEER 32 SeveEe"URenE*GSanRtrOg ORs"Ey BROGHESS ee ee i 
790 * SGeNED BY THTS SOREOuTTNES q yOGr hes Ener ene 804 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTEPRUPT TL 
791 * 13. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A 905 * IL 
493 + Sigh er ube cen Crane UROECT eenee Meetice Gp EE eon SO we IL 
G 
794 * ner ne Sheu TER 208 : SVC EXIT RETURN TO USER VIA SUPVR IL 
* 
ee * CALLING SEQUENCE GVO KH HHH KH He HHH KH KK HK KK KK KK KH HK KK KKK RK KKH KK KKK KEK KK KEKE KEK KKK KKEKT 
7197 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 911 * IL 
438 * 843 * FOR = PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT TE 
--> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 = PR = 
800 * -—> BAL XI01 EQ PARM PRELOADED IN 'tomopt 914 * INTR 2= EXCEPTION INTERRUPT FOR = INCOR au IL 
801 * --> BAL xXIOCS,R6 _ OR XEQ START CYCLE STEAL STATUS, MOD=F 915 * 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 
802 * --> BAL XIOCS“4,R6 AUTO CS STATUS (FOLLOWING OTHER X10 916 * W= ATTENTION INTERRUPT = STG DATA CK IL 
803 * ‘ AND DOES NOT POST INTERRUPT STATUS) 917 * 5= ATTENTION / PROGRAM CNTL INTR = INV STG AD&S IL 
804 * 918 * 6= ATTENTION / EXCEPTION INTR = PPROTRCT CK TL 
805 * RETURN CONTROL 219 : 7J= ATTENTION / DEVICE END INTR = I-FACE DATA TL 
807 * BXS R6,2 RETURN TO USER NO ERROR 921 INTER DC X"7O6E* COPY STATUS ANY LEVEL INTO R3 IL 
808 * OR B Pete RETURN AND RETRY ON ERROR 922 SRL 13 ,R3 POSITION INDICATORS IN R3 TL 
809 JO IO RI IIR ORIG GR IIR IR gC kk I IC fa ak ak 923 MVA OPPN1,R4 SET OUP _ BASE ADRS IL 
g10 BES? ge GRE faaec) ioe Hy 
XIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 
812 J XIO1 CS I/O'S ARE NOT RETRIED 926 TBTS R4,CE TURN ON CYCLE STEAL INTEP EFROR IL 
813 * / 927 MVW SF. ESTLs SAVE CS ERR ISB VALUE, BITS 0-7 IL 
814 TBTR (R4,CE RESET CS STATUS INTER ERROR INDICAT. 928 MVB R3,CSTLB+ 1 * AND THE COND CODE TL 
815 TBTS (P4,CS SET 'CYCLE STEAL STATUS' IN PROGPESS 929 J IN IL 
816 XIOCS MVA SDéB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 930 INTES TBT ae XE) TEST EXPECTED ATTEN / ERROR IND IL 
817 MVWI X'OOOFt, TOMOD SET CYCLE STEAL MODIFIER 931 JOFF INTET BCH IF NOT EXPECTED IL 
818 TBT RY ,CS) IS CS IN PROGRESS ERROR CONDITION 932 CBI 4,R3 IS THIS AN "ATTENTION' INTR IL 
819 JON T0% * YES. RYPASS SAVING RS 933 JE INTR1 * YES, BCH TO END INTR SEQUENCE IL 
820 xXIO1 MVW R6.LSTIO SAVE faR FOR RETRY oer FOURS RED 934 INTET TBTS (R4,ER) SET ERROR ON I/O COMMAND CNIL BIT IL 
821 MVA DChUF,R3 SET UP TO ADRS TO MOVE DCR TABLE 935 J tNTRI IL 
822 MVW  LIODCB,RS5 * AND THE FROM ADRS, ALONG WITH 936 * THE ERROR INTEPRUPT USES THE SAME IL 
823 MVEIT 16,87 * THE NUMBER OF MOVES 937 * ENDING SEQUENCE AS THE NORMAL INT IL 
824 MVFN (R5), (R3) MOVE 1 STATUS WORD AND ADJUST 938 EJECT IL 
825 MVBI 255.83 CLEAR CYCLE STATUS BUFFER 939 RR III IOI Ra ORE 15 MAR T7IZL 
826 MVA_ CSBOF,R5 * TO ALL ONES * 940 * TL 
827 MVBI 16,87 * 941 * SOUBROUTINE IL 
828 FFN R3 485) * 942 * IL 
899 MVWI xt6708 ,SIOIN OVERLAY OLD CONDITION CODES 943 * OKAY INTERRUPT RUNS ON INTERRUPT LEVEL "SINTL'* TL 
830 MVWZ $ISB,R3 ZEPO OUT OLD ISB VALUE 944 * TL 
832 : TBTR (R4,ER 346 poorer iL 
4, RESET ANY EFROR BEFORF I/0 COMMAND L 
833 xIO02 TRTR (rd Th} CLEAR INTERRUPT RECEIVED CNTL BIT I47 * TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
834 MVA OBLK,P7 SET UP CONTROL BLOCK FOR SUPVR 948 * IL 
835 TBTR (RU,#LE) RESET LEVEL ERROR INDICATOR 949 * CALLING SEQUENCE IL 
836 TBTS (R4,XI) SET EXPECTED INTR CONTROL BIT 950 * IL 
837 SVC TART CALL SUPVR FOR I/O COMMAND 951 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
838 * 952 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
839 TBTR (R4,NI IS AN INTR EXPECTED 953 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE TL 
840 . N R6, 2) * NO, RETURN TO USER 924 COMMON SECTION IS HANDLED HERE. IL 
TL 
gu2 : THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION Ep , RETORN CONTROL - 
844 XIOTD MVWI X'0000',R5 SET UP WORK REG FOR "LOST INTR! 958 * SVC EXIT RETUPN TO USER VIA SUPVP IL 
845 XI08 TBTR (R4,IN) HAS INTEPRUPT BEEN PECEIVED He aed TL 
B46 JON XIOCK * YES, CHECK IF ALL WAS SATISFACTORY 960 PESPUSES ET ELE EA LT SERSERAELESAEREESS TA ESPAER SEES CEE ESTERS SESS TENET END TL 
B47 SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO PUN 361 INTOK DC . oe COPY STATUS ANY LEVEL INTO R3 TL 
848 * SUPVP WILL RETURN HERE 962 SRL POSITION INDICATORS IN R3 IL 
849 AWI 1,R5 ADVANCE TIME OUT COUNT 963 MVA OPEN P SET UP_BASE ADPS IL 
850 JINZ XTos BCH IF TIME OUT NOT REACHED 964 INTR1 TBTS Ba Thy SET INTERRUPT RECEIVED TL 
851 TBTS Re ER) SET ON ERROR CONTROL BI 965 TBT R4,CS IS "CS IN PPOGRESS' ON TL 
852 B R6{ * ERR 'NO INTERRUPT! 966 JON NTR * YES, BCH AROUND UPDATE IL 
853 967 MVB R3,SIOTN+t1 SAVE INTERRUPTING CC CODE IL 
B08 ROARS RSAESSEERS SLES LE TESTA SEA CRS ESE EALOAAE ES ERTS CELE RS? PEATE S ION ARTSY ac6 ee any R7, SSB SAVE INTR STATUS AND DEV ADRS TL 
TL 
856 * SUBROUTINE - 970 * CBCL R5 CURRENT LEVEL COPIED BY DCP? TL 
857 * 971 SLL 4,R5 POSITION INTR LEVEL AND PUT IL 
858 * T/O EXECUTE ERROR HANDLING ROUTINE 972 ABI 1,F5 * IN 2* BIT IL 
859 * 973 CW SINTL, RS IS THIS THE CORRECT INTP LEVEL IL 
860 * PURPOSE 974 JE INTR3 * YES, GO EXIT THIS LFVEL IL 
861 * 975 TBTS (B4,$LE) SET INTP LEVEL ERROR CONTROL BIT IL 
862 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 976 TBIS Ru XT SET ERPOR ON I/O COMMAND CNTL BIT IL 
863 * PROBLEM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THE J77 INTR3 TBTR (R4,XTI WAS INTERRUPT EXPECTED IL 
864 * SUPFRVISOPR AND IT WAS NOT ACCEPTED 978 JON NTRX * YES, EXIT OFF THIS INTP LEVEL BB 
865 * 979 TBTS (R4,MI) * NO, SET MYSTERY INTP CONTROL BIT IL 
866 * CALLING SEQUENCE 980 CBI 4,R3 ATTENTION INTERRUPT? IL 
867 * 981 JF INTPX YES IL 
868 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 982 TBTS ce NG) ERROR,UNEXPECTED INTERRUPT IL 
869 * 983 INTRX SVC XxIt EXIT THIS LEVEL VIA SUPVR TO PGM IL 
870 * RETURN CONTROL 984 JECT 
871 * QED KR RK KKK RK HK KK HH HK HK RK HK HH KOK KK KK KKKITO MART TX 
872 * B (R6) * RETURN TO USERS EPROP HANDLER 286 * 
873 * 987 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
87 RAI IRC CIR I IO OR IOI ORI RII I IK I III IO FO Rk 988 * HAS BEEN SEPVICED. THE EXEPCISER FINDS AN INTERRUPT HAS BEEN 
875 * ; 989 * RECFIVED AND BRANCHES HERE TO CHECK FOP ANY EPROP CONDITIONS. 
876 * CC O= DEVICE NOT ATTACHED 990 * 
877 * FOR 1= DEVICE BUSY 291% 
878 * T/0 2= DFVICE BUSY AFTER RESET 992 XIOCK TBTR R4,XE) WAS AN ERROR EXPECTED 
879 x 3= COMMAND REJECT 993 BN Real * YES, EXIT THIS FOUTINE 
880 * W= INTERVENTION REQUIRED 994 TBTR (R4,CS5) WAS AUTO CS IN PROGRESS 
881 * S= INTERFACE DATA CHECK 995 JOFF xXIOCV * NO, CONTINUE CHECKING 
882 * 6= CONTROLLER BUSY 996 TBT ie 4 CE) ts c& IN AN EPP CONDITION 
883 * 7= I/O COMMAND EXCEPTED 997 JOFF TOCO * NO, BCH 
884 * 998 B R6) * CS ERROR 
885 XIOER DC XI 706E! COPY STATUS ANY LEVFL INTO K3 999 xToco TBIS R4,CSA) TURN ON CS STATS AVAIL FLAG 
886 SRL 13,83 POSITION CC CODE TO BITS 13-15 1000 BXS R6,2) GO TO USEP 
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2382 * 13. BAL SRD,R6 READ 2496+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 

32383 * : : 2497+* --> BAL XIOCS-4 ,P6 AUTO CS STATUS (FOLLOWING OTHER XIO 

2384 * 14 #4x-BAL SRDVY,R6 READ VERIFY euoG ce : AND DOES NOT POST INTEPPUPT STATOS) 

2385 * ‘ 

2386 : 15 BAL SWRT,R6 WRITE pent es RETURN CONTROL 

3388 § 33033 on BTS (Reg? EETUEN, AND SEER ON EEEOR 

+ : ‘ fOR 
Boston 020 313E 2D6E ee SSEEK ce Oa cea SET UP CONTROL BLOCK FOR SVC CALL D SOU + HH HH RR RH RRR HH HK HHH HH HH RH KH HK IH KK KKK EK KKK KE KEK 

2391 * 00303A CB25 3140 2506+xXIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 
002F72 - 4020 313E 2D2E 2392 SRECL AVA CLDCE, IODCB SET UP BLOCK FOR SVC CALL 00303E 500A 2207 | XIO01 CS I/O'S ARE NOT RETPRIED 

2394 * 003040 4CAA 2509+ TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 
OO2F7A 4020 313E 2D4E 2395 $RDID MVA RSDCE,IODCB SET UP BLOCK FOR SVC CALL 003042 4C68 2510+ TBTS R4,C SET 'CYCLE STEAL STATUS* IN PROGRESS 
0OO02F80 OBFF 2396 MVBI X'FF!,R3 SET BUFFER TO FIS 003044 4020 313E 2D7E 25114+XIOCS MVA SDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO2F82 4524 26E8 2397 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 00304A 4020 3140 OOOF 2512+ MVWI xX*OOOF',IOMOD SET CYCLE STEAL MODIFIER 
0O2F86 4724 0006 2398 MVWI 7 SETUP BUFFER LENGTH 003050 4c28 2513+ TBT (et CS) IS CS IN PROGFESS, ERROR CONDITION 
O02FBA 2BAC 2399 FFN RS (85) INIT READ SECTOR ID BUFFER 003052 1213 2514+ JON 102 * YES, BYPASS SAVING I/O ADRS 
OO2F8C 4020 2D5C 26E8 2400 MVA SCID, RSDCB+14 DATA ADDR 003054 6E0OD 26E6 2515+XI0O1 MVW R6,LSTIO SAVE TAR FOR RETRY IF PEQUESTED 
002F92 5053 2401 J XTO 003058 4324 26F0 2516+ MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 

2402 * 00305C 6D08 313E 2517+ MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 
OO02F94 OBFF 2403 $RD MVBI X'FF!,R3 SETRD BUFFER TO ALL F'S 003060 OF10 2518+ MVBI 16,R7 * THE NUMBER OF MOVES 
002F96 6D08 2DBC 2404 MVW RDDCB+14,R5 SET UP READ BUFFER ADRS 003062 2D64 2519+ MVFN (R5) af?) MOVE 1 STATUS WORD AND ADJUST 
OO2FO9A 4724 0100 2405 MVWI xX'0100',27 SET UP BUFFER LENGTH 003064 OBFF 2520+ MVBY 255,8 CLEAR CYCLE STATUS BUFFER 
OO2F9E ?2BAC 206 FFN R3, (R5 CLEAR READ BUFFER 003066 4524 2700 2521+ MVA CSBOr,R5 * 7T0 ALL ONES * 

OO2FAO 4020 313E 2DAE 2407 $RDS MVA RDDCB, LODCB SET UP RLOCK FOR SVC CALL O0O306A OF10 2522+ MVBI 16,R7 * 
OO2FA6 5049 2408 J XIO 00306C 2BAC 2523+ FFN R3 {B5) * 

7409 * 00306F 4020 26E2 0708 2524+ mvwr x'6708',$rotN OVERLAY OLD CONDITION CODES 
OO2FA8 4020 313E 2D9E 2410 $RDVY MVA  VRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 003074 CB25 26E4 2525+ MVWZ SISB,R ZERO OUT OLD ISB VALUE 
OO2FAE 5045 2411 J XIO 2526+* 

2412 * 003078 4CA1 25274 BTR R4,ER RESET ANY ERPOP BEFORE T/0 COMMAND 
0O0O2FBO 4020 2D8E 2413 S$WRT MVA WRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL O0307A 4CA3 2528+XI0O2 TETP R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
OO2FB6 5041 2414 XTO 00307C 4724 313A 2529+ MVA opLK,R7 SET UP CONTROL BLOCK FOR SUPVP 

F415 * 003080 4CA6 2530+ TBTR R4,$fLz) RESET LEVEL ERROR INDICATOR 
002FB8 4020 2DCE 2416 SRKEW MVA  RKDCEB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 003082 4C€62 2531+ TBIS (R4,XT) SET EXPECTED INTR CONTROL BIT 
OO2FBE OBFF 2u17 MVBI X'FF!,R3 SET BUFFER TO F'S 003084 600A 2532+ SVC TART CALL SUPVP FOR I/0 COMMAND 
0OO2FCO 4524 2418 MVA SCTID,R5S SETUP READ SECTOR ID BUFFER ADRS 2533+* 

OO2FC4 4724 2Nn49 MVWI R7 SETUP BUFFER LENGTH 003086 4CA7 2534+ TBTR (he. dy? IS AN INTR EXPECTED 

002FC8 2BAC 2420 FFN R3 {B5) INIT READ SECTOR ID BUFFER 003088 6ACO 0002 2535+ BN R6,2) * NO, PETUPN TO USEP 

OO2FCA 4020 26E8 2421 MVA  SCTID,RKDCB+14 DATA ADDR 2536+* 

O0OO2FDO 5034 gn22 ‘ XIO ees THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
002FD2 4020 2DBE 2424 SWKST MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 00308C 4524 0000 2539+XIOTD MVWI X*0000',R5 SET UP WORK REG FOR ‘LOST INTF!® 
0O2FD8 4020 2E0C 2425 MVA WSIDT,WKDCB+14 DATA ADDR 003090 4CA3 25404+XI08 MTBTR lr IN) HAS INTERRUPT BEEN PECEIVED 

OO2FDE 502D 2426 J XTO 003092 1238 2541+ JON TOCK * YES, CHECK IF ALL WAS SATISFACTORY 

2427 * 003094 6002 2542+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
OO2FEO 4020 2DCE 2428 SRWST MVA RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 25434+% SUPVR WILL RETURN HERE 
OO2FE6 4020 2E12 2429 MVA SCTST ,PKDCB+14 DATA ADDR 003096 7DA1 0001 2544+ AWI 1,25 ADVANCE TIME OUT COUNT 
OO2FEC 5026 2430 J XTIO | 00309A 18FA 2545+ JINZ xfo8 BCH IF TIME OUT NOT PEACHED 

5U31 * 00309C 4Cc61 2546+ TBTS R4, ER) SET ON ERROR CONTROL BIT 
OO2FEE 4020 313E 2D4E 2432 SRIDS MVA  RSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 00309E 68D2 0000 2547+ B R6) * ERR 'NO INTERRUPT! 

OO2FF4 OBFF 2433 MVBI X'FF!',R3 SET BUFFER TO FS DSU Qe HH HH HR He He Hee He a he 2 2 a ee 2 2 2 a ee a he Re 2 oe 2 ie a a i a RK kK OK KK AK TOMAR 7 7 *X 
OO2FF6 4524 2812 2434 MVA SCTST,R5 SETUP READ SECTOR ID BUFFER ADRS 2550+* 

OO2FFA 4724 0006 2435 MVWI 6,R7 SETUP BUFFER LENGTH 2551+* SUBROUTINE 

OO2FFE 2BAC 2436 FFN R3 ey INIT READ SECTOR ID BUFFER 2552+* 

003000 4020 2D5C 2E12 2437 MVA SC&ST ,RSDCB+14 DATA ADDR 2553+* I/O EXECUTE ERROR HANDLING ROUTINE 

003006 5019 2438 J XIO 25544+% 

2439 * 2555+* FEURPOSE 
003008 4020 313E 2DBE 2440 SWKEW MVA WKDCB,1IODCB SFT UP CONTROL BLOCK FOR SVC CALL 25564+* 
00300E 4020 2DCC 2E04 2441 MVA WESID,WKDCB+14 DATA ADDR 2557+ THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
003014 5012 2u42 J XTO 2558+ PROBLEM THAT WAS FOUND WHEN THE 170 COMMAND WAS ISSUED BY THE 

2443 * 2559+* SUPERVISOR AND IT WAS NOT ACCEPTED. 

003016 4020 313E 2D3E 2444 SWSEC MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2560+ 

00301C 4020 2D4C 2E04 2445 MVA WRSID,WSDCB+14 DATA ADDR 2561+* CALLING SEQUENCE 

003022 500B 24UU6 J XIO 2562+* 

003024 4020 313E 2D3E 2447 SWSTS MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2563+* SUPVR WILL ENTEP WHEN AN ERROR OCCURS ON AN I/O COMMAND 
00302A 4020 2D4C 2E0C 2448 MVA WSIDT, WSDCB+14 DATA ADDR 25644 

003030 5004 ee . J XIO 226at% RETURN CONTROL 

003032 4020 313E 2D1E 2451 SDIAG MVA DGDCB,IODCB SET UP CONTROL BLOCK FOP SVC CALL 2567+* B (P6) * PETURN TO USERS ERROR HANDLER 
003038 5000 2452 J XIO 2568+* 

2453 XEQUTL D5 6 HR HI HH a ee a Re a a a ee a Re i ee a ee ec he oe Re ae i 2 he ee a ke Se ie ee ee a a ae a eo A ok 

DSU + RIOR ROR IRR OR GIO IOI IO I Ra ki ak kek eke i i ke ko ak ae oe tok ok tok ok 75 MAR 77 eX 2570+* 

2455+ 25714+* CC O= DEVICE NOT ATTACHED 

2456+* SUB-ROUTINE 2572+* FOR 1= DEVICE BUSY 

-2U574* 2573+* 1/0 2= DEVICE BUSY AFTER RESET 

2458+* EXECUTE INPUT AND OUTPUT COMMANDS 2574+* 3= COMMAND REJECT. 

2459+ 2575+* 4= INTERVENTION FEQUIRED 

2U60+* PURPOSE 2576+* 5= INTERFACE DATA CHECK 

2461+4+* 2577+% 6= CONTROLLER BUSY 

2462+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 2578+* 7= I/O COMMAND EXCEPTED 

246 3+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 2579+* 

2U644% 0030A2 706E 25804+XIOER DC X'7O6E® COPY STATUS ANY LEVEL INTO R3 

2465+ 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STAPTED OO30A4 336A 2581+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 

2466+* THE I/O COMMAND. 0030A6 C328 26E2 2582+ MVB R3,$101N * PUT IN LOG OUT AREA 

246 7+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS OO30AA 68D2 0000 2583+ B (Rb) * RETURN TO USER ERROF HANDLEP 

2468+* ISSUED BY THIS SUBROUTINE. DS BS HHH RH A RR RH I HH RH RK RI RR I ROK IK KE TOMAR 77 ** 

24694* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 2586+* tL 

24U70+* START CYCLE STATUS WAS ISSUFD RY THIS SUBROUTINE. 2587+* SUB-ROUTINE TL 

24714+%* 4. RESETS THE INTERRUPT INDICATOR AND CHFCKS FOR ANY INTERRUPT 2588+* TL 

24724+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 25894+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! IL 

2473+ MYSTFRY INTERRUPT (MT) CONTROL BIT IS SFT. 2590+* TT 

24744+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 2591+* PURPOSE IL 

2475+* EXPECTED INTEPRUPT CONTROL BIT AND ISSUE THE ‘SVC START, 2592+* TL 

2476+* 6. WHEN THE SUPVP RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 2593+* THIS ROUTINE WILL BE ENTEPED WHEN THE SUPVP DETECTS AN EPPOP Ih 
2U77+* STARTS TO DETERMINE A LOST INTERRUPT. 25944* OR THF INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE TL 

2478+* 7. EXCEPT THE INTERRUPT AND GATHER INFOPMATION TO DETERMINE IF IT 2595+* EXPFCTED CODE. IL 

24U79+4+% WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 2596+* TL 

24U80+% 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 2597+* CALLING SEQUENCE IL 

24U81+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THEPE WAS RETURN. 2598+* TL 

2482+ 10. CHECK IF THERE WAS AN EPROP CONDITION, IF NOT RETURN. 2599+ SUPVR WILL ENTER WHEN AN ERROR OCCURS OW AN I/O INTERRUPT TL 

248 34+ 11. CHECK TO SEE IF THE EXERCISEP IS TO BE TERMINATED. 265004+* TL 

24844 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 2601+* PETURN CONTROL IL 

2485+* ISSUED BY THIS SUBPOUTINE. 2602+* TL 

2486+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A 2603+* Sv¥C EXIT RETURN TO USER VIA SUPVR IL 

248 7+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHE® BIT BEING ON, 26904+* IL 

24884+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PPINTED. Fo ee eee ETS ene ee ere ee Cre aa, CUE eek name renner ioe 

2U894+* +% IL 

2490+* CALLING SEQUENCE 2607+* CC O= CONTROLLER END ISB O= ADD STATUS TL 

2491+% 2608+* FOR 1= PROGRAM CONTROL INTFRRUPT BITS 1= COMD REJECT IL 

24924 THIS ROUTINE HAS THE FOLLOWING ENTRIES: 2609+* INTR 2= EXCEPTION INTEPRUPT FOP 2= INCOR LENGTH IL 

2493+ 26104* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK TL 

24944+* --> BAL XIo OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 2611+* 4= ATTENTION INTERRUPT Y= STG DATA CK TL 

2495+* --> BAL XTO1 MOD PARM PRELOADED IN 'Iomopb! 2612+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 
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1837 DATA17 ;ABDRESS. HEX LOCATION(00002A72) IN CSECT(I7868 ) LENGTH (2) 393 N00003 BO aaae ee eee). aN COC ECE EOS. 3) EENG TH (2) 
1924 DATA18 {AOBRESS- HEX LOCATION(Q0002C1E) IN CSECT(I7868 ) LENGTH (2) 402 NO00004 Ep ehoe: HEX LOCATION(00002570) IN CSECT(I7868 _  ) ee 
617 DCBUF >ADDRESS. HEX LOCATION(000026F0) IN CSECT(I7868 ) LENGTH(1) 405 N00005 ADDRESS. | HEX LOCATION (00002574) IN Saeed a ) LENGTH (2) 
2837 DC2PT ADDRESS. HEX LOCATION (000032E6) IN CSECT(I7868 ) LENGTH(2) 414 N00006 Sag ene: nae HOERT EON (OV O0 e082). TN CSECECLTGGG) 2: SENG TE (2) 
105 DEVADD ADDRESS. | x LOCATION(000019D0),_ IN CSECT (17868 ya LENGTE CY 417 N00007 ADDRESS. HEX LOCATION (00002586) IN CSECT(I7868 ) LENGTH (2) 
612 DEV1 ADDRESS, HEX LOCATION(000026F8) IN CSECT(I7868  ) LENGTH (2) 426 N00008 Ep pAEeS HEX LOCATION (00002594) IN CSECT(I7868 ) LENGTH (2) 
1937 DGDCB o ADDRESS. HEX LOCATION(00002D1E) IN CSECT(I7868 ) LENGTH(2) 429 N00009 ST nae LOCATION (00002598) IN CSECT(I7868 ) LENGTH (2) 
67 DUMMY ABSOLUTE, HEX VALUE (00000000) 438 N00010 ADDRESS. HEX LOCATION (000025A6) IN CSECT(I7868 ) LENGTH(2) 
492 ENTPT ADDRESS. HEX LOCATION(000025F8) IN CSECT(I7868 ) LENGTH(1) 44 NO0011 ee ae LOCATION (OOO0025AA) IN CSECT(I7868 ) LENGTH (2) 
589 ER ABSOLUTE. HEX VALUE (90000021) Seah: Stan. ahi 450 N00012 Bug toe HEX LOCATION (000025B8) IN CSECT(1I7868 ) LENGTH (2) 
sey ee 1895 1905 wee ta ee e008 sake) 2” 2696 453 N00013 ADDRESS. HEX LOCATION (000025BC) IN CSECT(I7868  ) LENGTH(2) 
2678 462 N00014 ADDPESS. HEX LOCATION (000025CA) IN CSECT(I7868 ) LENGTH (2) 
oo me 2809 Dees Sane von cone aynh ne epee eryeoe, 4) PENG) 465 N00015 RBDRESS. HEX LOCATION(000025CE) IN CSECT(I7868 ) LENGTH (2) 
a ee ae cse Bet re ener a): AN COBCE (TI SGS” 2) ENGTH (2) 474 NO00016 ADDRESS. HEX LOCATION (000025DC) IN CSECT(I7868 ) LENGTH(2) 
a, eee BOT en ren ROE ae AN SEE CETCRR: oS PENGTE 477 = N00017 ADDRESS. HEX LOCATION(000025E0) IN CSECT(I7868 ) LENGTH(2) 
tor = ENOND HOR ee ee enon LOROU ZEN) -ANCCSECT EL IBOR: oy Lena rE) 486  N00018 ADDRESS. HEX LOCATION (000025EE) IN CSECT(I7868 ) LENGTH (2) 
a MS dascaed Reto ee Soman ON (NOUR elen). Sh eo bCE Teo ene rE (A) 489 00019 ADDRESS. HEX LOCATION (000025F2) IN CSECT(I7868 ) LENGTH(2) 
= oe i sass aches sc mirgsie aoncadidearled Mpiiaactass seas gig ATM mca 553 OPTN1 ADDRESS. HEX LOCATION (000026DA) IN CSECT(1I7868 L LENGTH (2) 
527 F00103 ADDRESS. HEX LOCATION (00002656) IN CSECT(I7868 ) LENGTH (1) sete Apeg 1429 1479 1537) 1621) 1703) 1788 «1875 
531 F00110 ADDRESS. HEX LOCATION (0000266C) IN CSECT(I7868 ) LENGTH(1) 576 OPTN3 aape  sseat LOCATION (O00026DE) IN CSECT(I7868 ) LENGTH (2) 
535 F00117 ADDRESS. HEX LOCATION (00002682) IN CSECT(I7868  ) LENGTH(1) 101 PARMARA Bea ao ee eae a CREO hoe TL adeiaig 
539 F00124 ADDPESS. HEX LOCATION (00002698) IN CSECT(I7868 ) LENGTH(1) 2079 PHYSC seoe ade ae IN CSECT(I7868 ) LENGTH (2) 
543 F00131 ADDRESS. HEX LOCATION (OQO0026AE) IN CSECT(I7868 ) LENGTH(1) 69 PID ED neS eae roa eke cae ene atee er NCTE) 
547 F00133 ADDRESS. HEX LOCATION (000026C4) IN CSECT(I7868 ) LENGTH(1) ag aa ae a3 ae oi ae a He 
2845 HEBLK > ABBRESS. HEX LOCATION(000032EC) IN CSECT(I7868 ) LENGTH (2) 105 aac sae ee an4 ee sane 105 106 
684 HTOE ABSOLUTE. HEX VALUE(0000001A) 28 40 PIDMSG10 Oy ceed HEX VALUE (OOOOF1FO) 
2220 IDCBCE1 > ADDRESS. HEX LOCATION (OO0002EE8) IN CSECT(I7868 ) LENGTH (2) 670 PREP see ee HEX VALUE (0000000C) 
2222 IDCBCE2 ADDRESS. HEX LOCATION(OOO002EEC) IN CSECT(I7868 ) LENGTH(2) 20 32 RDDCB snoy aeoa  taoe  Aecy eoae IN St a ae ) LENGTH (2) 
2224 IDCBRAP pADDRESS. HEX LOCATION (00002EF0O) IN CSECT(I7868 ) LENGTH(2) 666 RESET 1387 1838 MThot "1553 1568 (eae ACHR. ADAG. 4900 
2216 IDCBO ADDRESS. HEX LOCATION(OQ002EEO) IN CSECT (I7868 LENGTH (2 - 
2218 IDCB1 “ADDRESS. HEX sc ee, IN ee oi oa eu cas y+ kan cane chaces Keapeenn ne: 
2199 2200 667 RID ABSOLUTE. HEX VALUE(00000009) 
nee ee 194. 4548 M32 114 1799) 1886 2542 2054 RKDCB "RDDRESS. HEX LOCATION(00002DCE) IN CSECT(I7868 ) LENGTH (2) 
591 IN ABSOLUTE. HEX GALUE (00000023) 2416 2421 2428 2429 
2528 2540 2659 1964 RS DCB ADDRESS. HEX LOCATION(O0O002D4E) IN CSECT(I7868 ) LENGTH (2) 
ree oes Lt HED? Seonc re Ce eae: ae ereaeee:: oy BENCIHZ) 2312 RTTO1 REDRESS. HEX LOCASTON (0600546) IN CSECT(I7868 ) LENGTH(4) 
cae eee Erk ia Bey Pormiey tern cece) score weeeoe” 2). UENGTaZ) 616 SCTID 2 RODRESS. HEX LOCATION (000026E8) IN CSECT (17868 LENGTH (2) 
ne nee Seon Bee ree ren oper eser ou coer cr core* Wy) DENGTIC2) 2089 SCTST "RDDRESS. HEX LOCASTON (00005E19) EN ésper (77868 fT LENGTH (2) 
26 29 INTET SBOE Ot. Hee LOCRTTON (OG00S0CE) IN CORCE(EIRGD. .): LENGTH (2) 1988 SKDCB oT DDRESS. HEX POCASTON (00002068) IN CSECT(I7868 |_) LENGTH (2) 
2656 INTOK >ADDRESS. HEX LOCATION (000030D2) IN CSECT(I7868 ) LENGTH(2) 4643 Anas ieee tea Lee 1645 1646 1727 1728 
2678 INTRX ADDRESS. HEX LOCATION (00003102) IN CSECT(I7868 ) LENGTH (2) 668 START spoons HEX VALUE (0000000A) 
2659 INTR1 pPBDRESS, HEX LOCATION (000030Da) IN CSECT (17868 ) LENGTH (2) 104 SUPSTAT Ot ela HEX LOCATION(000019C4) IN CSECT(I7868 ) LENGTH (1) 
2664 INTR2 a ADDRESS. HEX LOCATION(000030E8) IN CSECT(I7868 ) LENGTH(1) 1343 SO3E oe cia LOCATION (00002746) IN CSECT(I7868 ) LENGTH (4) 
2672 INTR3 > ADDRESS. HEX LOCATION (000030F6) IN CSECT(I7868 ) LENGTH (2) 1444 SO9E ae tea 1 vase LOCATION(OO0027AA) IN CSECT(I7868 ) LENGTH (4) 
fone pope 1340 1386 1438 1493 a953 bE" feae qost Tyg NeTA) 1498 S10E jABDRESS. HEX LOCATION (000027F4) IN CSECT(I7868 ) LENGTH(4) 
1739 1803 1824 4890 1911 2529 2759 1582 S11E ADDRESS. HEX LOCATION (00002888) IN CSECT(I7868 ) LENGTH (4) 
ene eee ABO 33 ae LOCATTON (09003 ' 38), Shae enone Pe ia Se 1654 S15E "RDDRESS. HEX POCATTON (04003914 "hy CS her (17868 ) LENGTH (4) 
$433 3446 544n 347 3459 9819 3849 3958 1623 1640 1644 1650. 1654 1b63 
2713 TOMOD oADDRESS, HEX LOCATION(00003140) IN CSECT(I7868 ) LENGTH (2) 1749 S16E A ahr Ee Mme et ane Bieber er ee IN CSECT(I7868 ) LENGTH (4) 
37 17868 CSECT. START (00002500) LENGTH (3570) ESDID(0) 1727 S16F ADDRESS. HEX LOCATION(00002970) IN CSECT(I7868 ) LENGTH(6) 
2078 LGSEC ADDRESS. HEX LOCATION (00002 DEC) IN CSECT(I7868 ) LENGTH (2) 1835 S17E 4700 S807 BAN Oda oa ae aa CSECT(I7868 ) LENGTH (4) 
28 26 LINE1 a ABD ESS. HEX LOCATION(00003214) IN CSECT(I7868 ) LENGTH(4O) 18 12 S17F igno HEX LOCATION(00002A16) IN CSECT(I7868 ) LENGTH (6) 
611 LSTIO gADRRESS. HEX LOCATION (000026 £6 a CSECT (17868 ) LENGTH (2) 1922 S18E (age Teo ARSE TOGk Gone bon. CSECT(I7868 ) LENGTH (4) 
588 MI >pRZOLUTE. HEX VALUE (00000020) 1899 S18F ‘fee HEX LOCATION (OO0002BC2) IN CSECT(I7868 ) LENGTH (6) 
2800 MVBUF ADDRESS. HEX LOCATION (000031A0) IN CSECT(I7868 ) LENGTH (2) 1391 S19E Beret aa BOGE TSO One 2) IN CSECT(I7868 ) LENGTH (4) 
heed Me +; a Bum. Meee Oe oUnee 1575 TSS11 BDBRESS- HEX LOCATION(00002874) IN CSECT(I7868 ) LENGTH(6) 
595 NI ABSOLUTE. HEX VALUE (00000027) 1340 TS03 ADDRESS. HEX LOCATION (0000273C) IN CSECT(I7868 ) LENGTH (4) 
381 N00001 ADDRESS. HEX LOCATION (00002550) IN CSECT(1I7868 ) LENGTH(2) 1434 TSO9 et aia HEX LOCATION (00002790) IN CSECT(I7868 ) LENGTH (4) 
390 N00002 ADDRESS. HEX LOCATION (0000255E) IN CSECT(I7868 ) LENGTH (2) 1493 TS10 RUD RESS: HEX LOCATION(000027E6) IN pore ees ) LENGTH (4) 
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1561 
1655 
1645 
1737 
1822 
1909 
1386 
2310 
2316 
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1701 
1786 
1873 
1379 
20 21 
2043 
20 10 
2082 
1954 
2086 
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CSECT (17868 
CSECT(I7868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
i835 1873 

CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT(I7868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CSECT (17868 
CS ECT (17868 
CSECT (17868 


N CSECT (17868 


2339 24041 
CSECT (17868 


CSECT (17868 


CSECT (17868 


SCOPE LOOP 
CROSS~REFERENCE LISTING 
NAME ATTRIBUTES AND REFERENCES 
TS11 ADDRESS; HEX LOCATION (00002848) IN 
TS15 ADDRESS» HEX LOCATION (OO00028FE) IN 
TS15F ADDRESS. HEX LOCATION (000028DC) IN 
TS16 ADDRESS. HEX LOCATION (00002992) IN 
TS17 ADDRESS, HEX LOCATION (00002A38) IN 
TS18 ADDRESS. HEX LOCATION(00002BE4) IN 
TS19 ADDRESS. HEX LOCATION(00002764) IN 
TT 303 ADDRESS. HEX LOCATION(00002F3E) IN 
TT 304 ADDRESS. HEX LOCATION(00002F56) IN 
2300 2309 2311 
TT4Y > ADDRESS. HEX LOCATION(00002F0E) IN 
TT711 BDBRESS- HEX LOCATION (0000282C) IN 
TT 715 BDDRESS. HEX LOCATION (000028C0) IN 
TT 716 sARBRESS. HEX LOCATION (00002954) IN 
TT 717 ADDRESS. HEX LOCATION(000029FA) IN 
TT718 ADDRESS. HEX LOCATION(00002BA6) IN 
TUMSGWTR > ADDRESS. HEX LOCATION (000018BA) IN 
TURTN ADDRESS. HEX LOCATION (00002718) IN 
1334 1343 1379 1391 1427 1441 
1382 1619 1664 1701 1749 1786 
TUSTATUS jARDRESS. HEX LOCATION (00001818) IN 
TU WORK ADDRESS. HEX LOCATION(0000181A) IN 
2795 2847 
T10T ADDRESS. HEX LOCATION(000027D8) IN 
T1072 ADDRESS. HEX LOCATION(000027DE) IN 
1487 1488 1489 
T10T5 ADDRESS. HEX LOCATION (000027E2) IN 
T11T ADDRESS. HEX LOCATION(0000281C) IN 
T11T2 ADDRESS. HEX LOCATION(00002822) IN 
1544 1545 1546 
T1175 BDBRESS. HEX LOCATION (00002826) IN 
T15T RDDRESS. HEX LOCATION (000028B0) IN 
T1572 ADDRESS. HEX LOCATION(000028B6) IN 
1628 1629 1630 
T15T5 ABDRESS- HEX LOCATION(000028BA) IN 
T16T ARDPESS. HEX LOCATION (00002944) IN 
T16T2 ADDRESS. HEX LOCATION(0000294A) IN 
1710 1711 1712 
T16T5 ADDRESS. HEX LOCATION(0000294E) IN 
T17T ADRESS. HEX LOCATION (000029EA) IN 
T17T2 ADDRESS. HEX LOCATION(000029F0) IN 
1795 1796 179 
T17T5 scoot HEX LOCATION (OO00029FU4) IN 
T18T ABDRESS. HEX LOCATION(00002B96) IN 
T18T2 ADDRESS. HEX LOCATION(00002B9C) IN 
1882 1883 188 
T18T5 ADDRESS. HEX LOCATION(00002BA0) IN 
T7803 ADDRESS. HEX LOCATION(00002728) IN 
T7809 ADDRESS. HEX LOCATION (00002776) IN 
T7810 ADDRESS. HEX LOCATION (000027AE) IN 
T7811 ADDRESS. HEX LOCATION (000027F8) IN 
T7815 ADDRESS. HEX LOCATION (0000288C) IN 
T7816 ADDRESS. HEX LOCATION (00002920) IN 
T7817 ADDRESS. HEX LOCATION(000029C6) IN 
T7818 ADDRESS. HEX LOCATION(00002B72) IN 
T7819 ADDRESS. HEX LOCATION(0000274A) IN 
VRDCB oADDRESS. HEX LOCATION(00002D9E) IN 
WK DCB ADDRESS. HEX LOCATION(00002DBE) IN 
2424 2425 2440 2441 
WRDCB ADDRESS. HEX LOCATION(00002D8E) I 
1914 1915 1916 1917 1918 2413 
WRSID ADDRESS. HEX LOCATION(00002EF04) IN 
1743, 1744 1745 1961 2050 2258 
WS DCB ADDRESS. HEX LOCATION(00002D3E) IN 
1742 2444 2445 24647 2448 
WSIDT ADDRESS. HEX LOCATION(00002F0C) IN 
2254 2425 2448 
XE ABSOLUTE, HEX VALUE (00000024) 
1388 1438 1895 1554 1568 1576 
1720 1730 1746 1805 1814 1832 
2625 2687 
XI ABSOLUTE. HEX VALUE(00000022) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
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LENGTH (2) 
LENGTH (4) 
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2408 2411 
2449 2452 
OCATION (00003104) 
HEX LOCATION (00003116) 
HEX LOCATION (00003044) 
HEX LOCATION (0000311A) 
HEX LOCATION (00003134) 
HEX LOCATION (000030A2) 
HEX LOCATION (0000308C 
1483 1551 1565 1 
1802 1815 
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LENGTH (4 
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LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
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LENGTH (4) 
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